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UNE REGLE A CALCULS POUR 
EORTH 


Un article de Nathaniel GROSSMAN, 
Dpt Mathematics UCLA LosAngeles CA 90024 
traduit par Christophe LAVARENNE. 


Si le plupart Œs utilisateurs darilhmétique en 
virgule flottante ne ressentent pes toujours le 
besoin dune extension complète en virgule 
flottante, r}s peuvent trouver es applications pour 
une ‘règle à calculs" De petite taille, une telle 
extension permettrait le calcul, en virgule 
flottante Simple précision, ds fonctions 
mathématiques usuelles, y compris adition et 
soustraction Comme avec une règle à calculs, /e 
maine æ validité ds fonctions serait limité, 
laissant à l'utilisateur le soin Œs calculs d'échelle 
Voici une implémentation & régle à celculs pour 
Forth, commençant per les quatres opérations & 
base implémentées per Martin Tracy, les autres 
fonctions méthématigues élant dérivées 
l'algor rthme CORDIC unifié 


Du temps de la plume, du papier et des tables 
numériques, la règle à calculs facilite les travaux 
de l'Homme. Cet instrument, qu'on pourrait pré- 
senter comme un ancêtre, .non minieturisé, d'une 
puce interactive intégrant les fonctions arith- 
métiques du calcul flottant, a permis d'économiser 
un nombre considérable d'heures qui auraient été 
consacrées à de longues divisions et à d'incessantes 
utilisations de tables numériques. Quand les caicu- 
lateurs mécaniques, puis électroniques devinrent 
disponibles, puis courants, les calculs arith- 
métiques à grande précision ne devinrent pas plus 
difficiles que ceux à faible précision, ces derniers 
se résumant simplement à arrondir ou à tronquer 
les résultats en grande précision. 

Pour le concepteur de matériel ou de logiciel, Île 
passage de faible à grande précision n'est pas-une 
étape triviele. L'utilisateur, pour qui l'implémen- 
tation est souvent transparente, peut se plaindre 
d'avoir à supporter le temps nécessaire à un calcul 
en haute précision pour obtenir un résultat en 
faible précision. De même, lors du transport d'une 
application ne nécessitant aue du calcul en faible 
précision, les efforts nécessaires au transport des 
outils de calcul en haute précision semblent 
disproportionnés. | 

Cet article présente une implémentation genre 
règle à calcul de l'algorithme de CORDIC permettant 
à lui seul de générer les fonctions mathématiques 
usuelles, y compris multiplication et division si 
nécessaire. Un algorithme unifié est des plus 
attirant pour un concepteur de matériel: les 
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calculatrices de poche Hewlett-Packard sont 
équipées d'un processeur CORDIC câblé [ 1,6]. Pour 
le concepteur d'outils de calcul en virgule flottante, 
CORDIC est également intéressant. En général, pour 
ds raisons de vitesse d'exécution, CORDIC est 
souvent implémenté en virgule fixe, ce qui réclame 
des mises à l'échelle avant et après exécution. Les 
opérations de mise à l'échelle sont reportées dans 
une routine en soi très simple. Ceux qui ont utilisé 
une règle à calculs se rappelleront que les mises à 
l'échelle étaient laissées entièrement aux soins de 
l'utilisateur par calcul mental. L'implémentation 
présentée ici se situe à mi-chemin, sacrifiant 18 
vitesse d'exécution au profit d'un calcul en virgule 
flottante simplifient les problèmes de mise à 
l'échelle. Elle est tirée d'une extension compacte en 
simple précision que Martin Tracy a écrite et 
baptisée "Maths Zen” pour rire, aussi avons nous 
baptisé “Règle à calucls Zen" les écrans que nous y 
avons ajouté. La règle à calculs Zen, comme la 
"vraie", laisse à l'utilisateur le soin de vérifier le 
domaine d'utilisation des différentes fonctions. 

Le reste de cet article décrit l'algorithme CORDIC 
puis commente les écrans présentant notre 
implémentation. Nous n'entrerons pas ici dans les 
détails de démonstration du fonctionnement de 
CORDIC: ceux qui s'y intéressent pourront se 
reporter à la littérature existante. L'introduction 
simple de Schelin [5] est sans doute le meilleur 
point de départ. Schelin donne une longue 
bibliographie sur CORDIC et d'autres sujets Sy 
rapportent ; entre autres, les articles de Schmid et 
Bogacki [6], Voider (le concepteur de CORDIC) [8], 
et Walther [9] ont été les plus utilisés pour la 
préparation de ce document. Les articles de Furman 
{3} et de Freese [4] dans “Forth Dimensions” 
contiennent une implémentation CORDIC en virgule 
fixe pour les fonctions Sinus et Cosinus en Forth. 
Nous avons intégré pratiquement toutes les 
fonctions élémentaires usuelles citées par Duncan 
et Tracy [2] dans leur proposition de standard en 
virgule flottante. 


L'ALGORITHME CORDIC. 

Comme le fait remarquer Schelin [5], l'algorithme 
CORDIC est remarquable par le fait qu'il ne fait pas 
appel aux techniques du calcul différentiel ou 
intégral pour calculer les valeurs des fonctions 
élémentaires. Etant données trois valeurs initiales, 
appelées soit xp, Yo, Zo S0it X4, Y1, 24 Suivant la 
fonction à calculer, des séquences de triplets xe, 
Yk, & Sont générées suivant le shéma de récur rence 
suivant: 


Xk1 = Xe = M * delta, # y * 2K 
Veet = Vk + delta # xx * 27 
2+1 = 2x — delta * epsilon, 


Pertant de k=0 ou 1 comme approprié, Îles 
itérations doivent être poursuivies jusqu'à k=n. Le 
paramètre m (appelé le mode) vaut +1 ou -1. Les 
nombres epsilon, se présentent sous deux aspects, 


présents dans les tableaux +EPS et -EPS: 


+EPS: epsilon=ten"1( 2%), pour k=0,1...,n 
-EPS: epsilon,=tanh”1(2"*), pour k=1,.,n 


Dans notre implémentation, n=14. Les nombres 
delta sont choisis égaux soit à +1 soit à -1 de 
manière à forcer soit y, soit 2, vers zéro. Si 2, est 
forcé vers zéro, le processus est appelé rotation, 
sinon si y, est forcé vers zéro il est appelé 


vectorisation. Une obscure condition technique sur 
les epsilons exige que les itérations pour k=4 et 
k=13 soient répétées et k=0 soit omise, pour la 
vectorisation seulement. Enfin, deux constantes 
sont nécessaires à l'initialisation des récurrences: 


1/K=(1+40)1/2#(1+4-1)1/2 x. 
* (1+4714)1/2 2 06073 


1/K=(1-4-1)1/2#(1-4-2)1/2 x, 
«4 répété». <13 répété» 
#(1-4714)1/2 2 12076 


Les instructions pour évaluer les fonctions 
spécifiques sont données dans le tableau ci-dessous, 
qui est adapté de celui donné par Schelin [5]. Le cas 
m=0 qui peut être utilisé pour effectuer les 
multiplicetions et les divisions est omis ici parce 
qu'il n'est pas utile quand +, -, * et / sont déjà 
implémentés en virgule flottante. 


Le shéma CORDIC en binaire 


Rotation (z->0) 

delta.=+1 si 0<24,-1 si 4<0 

m=+ |: *X0= 1/K, Yo=0, 20= ænnent 
Xn+ 1 COST), Ye =Sin(t) 

m=-t: xo=1/K",yo=0, zo=t nnent 
Xn+ 1 =COSN(t), Yn+=sinh(t) 


EX ne 1 + Yne 1 


Vectorisation (yK->0) 

delta =+1 siyg<0,-1 si 0yg 

m=+l: x, donnée, y, donnée, z21=0 drrent 
2n+1=tan l(y1/x1) 
Xe 1=K*0412+y12) 1/2 

m=-1: x, donnée, y, donnée, z1=0 rent 
2n+=tenh"}(y1/x1) 


Xne1=K'*O2+y12) 1/2 
Cxist+t  etyist- 1 dent In(t)=2*2,,;) 
(xyst+1/4etyizt-1/4 dnent t\/22x,,1/K') 


LES ECRANS FORTH 

Nous supposons qu'une implémentation de +, -, * 
et / est disponible en virgule flottente, accom- 
pagnée des utilitaires nécessaires aux entrées- 
sorties (conversion ascii-binaire). Les nombres 
sont supposés être manipulés dans la même pile que 
les entiers avec la caractéristique (l'exposant en 
base 10) sur un mot au sommet de la pile, et la 
mantisse juste en-dessous, sur un nombre non 
prescrit de mots. La caractéristique, comme la 
mantisse doivent être des entiers décimaux signés 
(le nombre d'itérations pour la boucle DO..LOOP la 
plus interne pourrait être réduit considérablement 
si le calcul se faisait en virgule flottante binaire, 
c'est-à-dire avec un exposant en base deux). 

Les écrans n°6 à 15 contiennent la “règle à calculs 
Zen". Seul l'écran 6 y est dépendant de 
l'implémentation, et l'implémentation des quatres 
fonctions arithmétiques en virgule flottante est 
celle de Martin Tracy “maths Zen" [7], qui utilise 
une mentisse en simple précision, occupant donc 
deux mots avec la caractéristique. Du coup, la 
plupart des fonctions de manipulation de la pile ne 
sont que des synonymes des opérateurs double- 
précison (2DUP, 21 ….). Les lignes 4, 5 et 6 de 
l'écran n°6 sont au cœur du “truc” pour diviser 
par 2. Si le but était de diviser par 10, le plus 
simple serait d'utiliser 1- pour retrancher un de 
la carectér istique du nombre flottant sur la pile. De 
même, !- suffirait à diviser le nombre flottant par 
2 si les nombre étaient représentés avec une 
cheractéristique en puissances de 2. Ici, comme 
nous l'avons mentionné, nous travaillons avec un 
système hybride, exécutant CORDIC en virgule 
flottante décimale. Nous devons donc payer le 
désavantage qui consiste à effectuer une division 
par 2 en multiplient d'abord per 5 puis en divisent 
par 10. Pour qu'aucun chiffre significatif ne soit 
perdu per débordement (overflow") lors de la 
multiplication, la mantisse en simple précision est 
tout d'abord étendue en double précision (2 mots), 
puis le résultat du produit est reconverti en simple 
précision par l8 fonction TRIM de Tracy. Le mot 
F2°N/ (r n --- r/2°"n) divise le réel r per 
l'entier 29 et doit effectuer les divisions par 2 
nécessaires au moyen d'une boucle DO..LO0P (en 
virgule flottante binaire, on pourrait tout sim- 
plement écrire : F2°N/(rn---r/2n)-;). 
Le mot FLOAT aux lignes 12 et 14 est le 
discriminateur de Tracy qui transforme en réel ce 
qui pourrait être pris pour un entier double : 
3.1416 FLOAT laisse 31416 -4 sur la pile. Enfin, 
FF est un synonyme servant d'eabbréviation pour 
FLOAT. 
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L'écran n°7 contient un assortiment de constantes 
et d veriebles utiles. Si la précision devait 
changer, seules les valeurs de 1/K et de 1/K 
seraient à changer. Ces deux constantes pourraient 
être calculées evec plus de précision par les 
formules données ci-dessus, en ajoutent au produit 
les facteurs suivants, jusqu'à ce que la puissance de 
4 soit nulle pour la précision recherchée (pour 
1/K', l'itération suivante à répéter se trouve à 
k=40). Les trois variables flottantes, XX, YY et ZZ 
et la variable entière NDX résultent d'un choix 
délibéré de l'auteur pour améliorer la lisibilité du 
code. Les opérations d'accès mémoire en sont un peu 
moins efficaces, mais de toute façon, le plus gros du 
temps d'exécution se situe au niveau de l'addition en 
virgule flottante. 11 sera facile de remplacer les 
manipulations de var iables par des manipulation au 
niveau de la pile, mais celles-ci risquent de 
devenir prohibitives pour des précisions de 
mentisse plus importantes. 

Le mot FARRAY crée une table de constantes réelles 
flottantes et empile à l'exécution celle sélectionnée. 
ilest utilisé pour générer les tables +EPS et -EPS. 
Le kième élément de +EPS vaut tan” !( 2), et celui 
de -EPS veut tanh-!(2"*k) (sauf pour k=0 pour 
lequel tanh” {( 1) est indéfini, et remplacé par une 
valeur nulle). Pour sélectionner plus librement 
une des deux tebles pour la valeur des epsilons à 
utiliser, le choix passe par EPS, un mot différé 
(créé par DEFER). 

Comme m et delta ne prennent que les valeurs +1 
ou - 1,18 multiplication per l'un ou l'autre peut se 
résumer à un NEGATE conditionné. Les deux 
processus de rotation et de vector isation définissent 
de manière un peu différente le choix des delta, d'où 
les deux mots R-DELTA et V-DELTA, et pour Îles 
accès aux variables, les mots R-STORE et V-STORE. 
L'unité de l'algorithme CORDIC fait reporter Île 
choix entre les deux versions à travers le mot 
différé ISTACK. 

Les trois mots NEW_X, NEW-Y et NEW_7 
supportent les itérations de la récurrence et 
représentent la partie principale des deux mots 
principaux, ROT'ING et VEC'ING qui forment le 
noyau, à travers le mot différé DO-IT, de la boucle 
centrale du mot CORDIC. 

A l'écran n°11, les deux premiers mots décident du 
mode en plaçant un drapeau et en sélectionnant la 
table d'epsilons appropriée. Le mot CORDIC est au 
cœur de tous les calculs de fonctions. La séquence 
NDX ! DO-IT aurait pu être factorisée, mais 8 été 
laissée telle quelle pour plus de clarté. 

Les écrans n°12 à 14 proposent une sélection 
généreuse de fonctions en virgule flottante. cos, 
sin, tan, atan (trigonométriques), por, rop 
(transformations coordonnées  rectangulaires- 
polaires), exp, cosh, sinh, tanh, atanh (hyper- 
boliques), sgrt (racine carrée), 1n (logarithme 
naturel). Ce qui représente l'ensemble des 
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fonctions spécifiées par Duncan et Tracy [2], les 
autres pouvant facilement se déduire de celles-ci. 
Ayant mentionné qu'une règle à calculs laisse à 
l'utilisateur la têche de vérifier les domaines de 
validité des fonctions, nous donnons ceux-ci 
suivant Walther [9]. 


Domaines de convergence CORDIC 


fonctions (domaines) 
sin, cos, tan (-1.74, 1.74) 


tan”! (-infini, +infini) 
sinh, cosh, tanh,exp (-1.13, 1.13). 
tanh”! (-0.81,0.81) 

In (0.10, 9.58) 
sqrt (0.03, 2.42) 


Enfin, notons que les résultats produits par la règle 
à calculs Zen seront précis à une ou deux unités à la 


‘troisième décimale, l'erreur étant dûe au manque 


de décimales de garde (c'est pour conserver Îles 
effets de tronquature que nous n'avons pas adopté la 
méthode de Schmid et Bogacki [6] qui réclamerait 
beaucoup plus d'additions flottantes pour obtenir la 
même précision). Le code donné tel quel est compilé 
en 1580 octets sur le MasterForth de Micromotion 
{une réalisation enrichie de Forth-83}) sur Appie 
lle. Maths Zen de Tracy réclame 500 octets 
supplémentaires, soit un total de 2080 octets. 


REFERENCES 
1. D. Cochren, Algorithms end accuracy in the 
HP35, HewlettPackard J. (Juin 1972,p10-11) 

2. R. Duncan & M. Tracy, The FVG standard 
floating-point extension, DrDobb's Journal 
(Septembre 1984, p110-115) 

3. D. Freese, CORDIC algorithm revisited, Forth 
Dimensions Ÿ, n°3 p24-25 

4. AT.Furman, The CORDIC slgorithm for fixed- 
point polar geometry, Forth Dimensions IV, n°1 
pi4-15 

Le C.W.Schelin, Calculetor function 
approximation, American Mathematical Monthly 
(Mai 1983,p317-25) 

6. HSchmid & ABogacki, Use decimal CORDIC 
for generation of many transcendantal functions, 
Electrical Design News Magazine (Février 1973, 
p64-73) - 

7. M.Trecy, informel communication, 1984. 

8. J.Volder , The CORDIC comuting technique, IREE 
Transactions On Computers (Septembre 1958, 
p330-334) 

9. JWaïlther, À unified algorithm for elementary 
functions, Joint Computer Conference Proceedings 
38 (printemps 1971, p379-85) 


FORTH LA VIRGULE FLOTTANTE EN 83-Standard 


LA ‘14 8p 2 oseq us 607 
Né A M NT4 
J 
> Se] ‘14 Sp OI oseq ue 607 
< ) ZÉ 222 +9 9074 
ds n > £ 3JueE]))01;3 SINGITA us Sas nbax Ssajuepusssuell SUOCrIJDou0J 
A0 
a © T ‘Zi NO IJ 23p 11184 Snld 2, aJaï1I9q 
œ KE (e " UTUI --- ZI Ii NIW4 
LE LU 6 
Ge. a ‘Zi NO Fi op pueib snid 2[ 231A119q 
SE .U a XBWS --- Zi 11 XVWA 
& SEA 
= eu "1994 31IQUOU UN,P 991189 SUIDEJI PI 9P UOlJ0EI1IKI 
5. = eye fa LHOS 4 
(e) 
Ë Z ‘1991 9JquOou un,p aufis 21 oBueua 
Es d- --- J 
Q. & ALVOINJ 


"1991 9JIquou un,D SnIoSqe JINSIPA PI SJAII9Q 


(4) --- 2 sav 


Zi SoueSSind EI PE 939A9319 IJ 3P INSIEA EI -SIA!II[9Q 

CI --- ZI Ii xxd 

za 

ded 2SIAIP IJ 9P JUaI]onb 31 2JAII[9P ‘23u8)301} 2INBIIA US UOISIAIG 


ET -=- CA Ti /4 


‘&4 98 T1 9P J3INPOId 3, SJAIISP ‘9JUEI)OLJ S[NBIIA US UOIJE2IIdI3INW 
EI --- ZA T1 xa 

24 

SUTOWU T1 SP S2U919J3JIP EI SIAIISP ‘93U8J)0[J S8[INPIIA US UOIJ2EJ11SN0S 


EE --- ga Ti -4 


‘Zi 19 IA 9P SuUOS PI SIATISP ‘9IUE))OIJ 2[IN6JIA US UOLJIPPV 


EX --- 21 11 +d 
9U8)13014 2INBIIA us SInbay sanbl)amuy}liv SINno)PJ9dO 


QJuousnss uot3el duos us 
2e IPouu] 


guBis uou sJ1q Zz£ Jorjus np 

Qu6is S31q ZE 1stque P 

auBIis uou S31Q 9T Jorque n 

QUÊIS SIIQ 91 Jo1JuS u 

1BJA=1- ‘xXNneJ=-0 ‘u23100q 6P1J 4 
(uotiejuaus{d 


-UT,1 2P siuepusdep Jnenfuor) ajubP))01} ‘BilA s1iquou 14 ‘4 
(84JOuBT 3107 SPIOd 3p 32390) Ss31q JIny 22320 q 
311OW9& 3SSa1pe Jpe 


VA : juos SSIOQUAS S89 °3J101p E 159 9IId PI SP jeuwos 8[ ‘uorjejou 
94199 Sued ‘SonbIpur quos a[Id PI InS Jue)soJ Sal)oweled Sa ‘uOl] 
“N9SXS Sriled ET AUenbieu ,---, S)181) SIOIL ‘SaauuoPp ap alid EI 
Ans SsSod9p 8119 AUSAIOP 391JU95,p Soijeumeled Sol [anbal suep »1piO, I 
AUSNDIPUT SSIOQUAS S9T ‘pIEpUEIS 91[PSSOIB 28P Jeuio; un sUuep 21193P 
S9 83U83901$ OINBIIA ue, anod uorsu2jxs ua 9sodoid sjow 3p naol 37 


3UP))0I4 SINBIIA SI1ESSOI9N 0'°S 


‘9311Iq8310d BI 19AIS8SUO9 3P UIJE 2SII[I1AN eJos nb 
dnGA EISS 99 SIEUW --- )93}J9 oWou 2a[ jJuoJne dndaz 39 anqdi ‘SJjiIQ CE us 
1994 38mi03 Un 9310ddns 9wW9JS4S 91 IS ‘orIdWexe JIPd “HLHOA Ssino)eJsdo 
S211NE,P 99348 JUSPIOUIOD SII NO SE2 21 SUBP juouolebg ‘SI29i saiquou 
9 SE9 SST Sn0) E AISNbIIdde,S JUS8AIOP 2IId sp suoljeiodo je a11omeuw 
S999E US SUOIJEISdO,P SUOISISA S2SI2AIP S9T ‘9JUEJ30IJ 9INBITA US 
S8-IQUOU SSP 2121[N9131ed uUOtJ3daouos es sed obejueae,u inouwwesBoid 2! 
snb jue31odur 3s8 II ‘uorjeot[dde sun,p 3111Iqe)1od e1 Jeinsse AnOd 


9311481104 0° 
"293SIX2 291EPd3S oIId oun IS S[o2J 


S9P 8I1d eI Sinofno3 eJss [991 21quou Un,P UOlIJjeUr)3SSsp e[ no aulBlJI 
9,1 ‘Spou3su s13ne,1 no sun,[ 8P SJUSIUSAUODUI NO saBeqUEAB So, sed 


2Sodxs ,uU uOrSsu31xs8,p uor3iISOdold 2)}329 “21Id ougu e] juobejied s241 
[NE,P onb SIOIE ‘Soguuop 3p SIId EI 9p »218d9S 2JUP)1)O[J o[NBIIA ua 
STId eun quo seur8)189 onb Su3S 92 us Ju912JIP SUOIIELUSUSIdUT s27 
23uP))01J 9INBIIA US 8IId e1 0'€ 

-aque) 

1014 SINBITA US SISUUOI3dO SJ0N S3P 21IPSSOID 2I SUPP S}1129p Juos 


38  SSUSISAS SISAIP SUEP SOI[IQIUOdSIP jUOS SoxaIdmo2 snId a1J10S ap 
Se6e3euioj so ‘juesodxe 29AB uoOl)eJjou us 91Quou 31 ou21JJe Enb 3 
13 ‘Juesodxs SUBS 91QuOu 91 au9IJJe 22 [EMI29P qjuIod np uorJ)iSod e1! 


S1SN[E END ‘4 :SSIQUIEA JUOS 9BEBUDIJJE,D S9ATIIMIId suoljelodo xneq 
23u893013 SINbILA US oJ1quou un,Pp S6eu213JV 0% 

‘IUIJ9P SeEd PIS ou nu2)qo 91IQUOU 2I ‘Se 2, sed 

AS9,U 89 IS ‘1991 un,p 36EUDIJJE RO 391JuS aun jueAB [EWI22P ue 221 


-n9Seq 159 9193S4S np sJuBINn09 2seq PT ‘SI991 SoIQUOU US Seujeus se] 


JIJ1SAuUOD Jnod uotieotidde,r IEd 3STIIMN 51939 110P HAdWANA JO 27 
ST-4'OOCI 
0+40'O0T 
S31000:- 
:SSPIIPA JUOS juaains Inb Ssaiq 
HOU SST Sno3 ‘ardusxe ind ‘oSSIJueu EI suep qjuausrnss »s1[1n 12 
leuuorido 3S9 IeWr929p juIod 871 ‘juesodxs,1 e SIuod juowo[e69 jue)2 
u+u UN “AUESOdXS , I 939 2SSIJUEM BI 13P9991d JI0P ,-, OUBIS 91 ‘Suol) 
EIUSUSIdUT Sosnsiquou 9p SUEP sespueuep js sIeu ‘Suorje2t1J193ds 
SS5 4Jed sSinbei sed jSa,u ,4, 21 Saide no qjueae senblioumu S21t61p 


S8P ooussgid et 1891 3J4QUOU US UOISISAUOD EI 199107 EP ]119S ,1, 97 
XXAUUUU -UUUU 


:1891 231quou onb jue] ua 22[Idmo> no 
B18S SIUBAINS SHIOF EI 9P SS1919PJED 9P SUIEUD oun 
us ouweiboid ous3sAÂs un € 939JJ916 919 e uolSUSIK9, I IS 


no 9ÿJ91diaqut 
‘PIEpUB)S-c8 


33U87301J 2INGIIA US 31quou un,Pp 2KEJUAS O'I 


93U899014 SINGIIA US PIEPPUEIJS UOISUDSIXI 


5 


Jenr N°90 Janwuer 4986 


(UO118)31d1I3JUI US) 1pe 


(uot3e[iduos us) HTIEVIAVAI 


SI991 SP oIId PI Jns 2S0d2p }S3 9)98}JE 919 
Be INT] INb J [991 SJIQUOU 9, ‘<JOW>: 2p 2IN2I193IN UOIINDSXS, | SP SI07 
onblijomueied ou0oz PS PP. J [991 231IQUOU 31 3)393JJE J)93 S31I1EUUOlII)9IP 
3T SUBP <Jj0uW: 919j3-U9 UN 9919 II ‘JINVISNOOH SP UOIINDSXS, | 9PD S107 


<30M> INVISNODA 4 
:BuI0J PI SNOS 2SIIIAN UOIJIUIJ9P 2P 10N 


(uor3n2sxs us) Je eSS 


(UOrIeIIdWOD U3) <3J3OW> --- 1 INVISNODA 


‘S1991 Sop 
[Id EI Ans [591 91 9S0d2D )3 Ssaauuop 3p o[Id EI op jouuos ne son 
-IS 9S9 JIn9[BA ei jUOP JIpPE 2SS21pE,[I SIndoPp [991 9IQUOU UN 221914 


5 J --- 1pE DE! 
-Soauuop 2P 9IId PI 23P ]ouuos ne 22nj)lS 3S2 JINSIPA EI JUOP 2SS2J1 
-pe,.l E SI22J SP o[IId 21 op Jeuuos ne onjIS [991 2JIQUOU UN 2)9383JV 
-+- APE i id 

-& UOISI291d o[qnop 

J31JU3,1 2IOAUSI INI OL Z :SldWexg ‘INn21I9,p uoOt31puos oun aenbonoïd 
2119Pde2 9p uausssed9p un ‘[Inu 183[nNS91 UN SUUOP j1}2d doi] 31q 


-UOU ufj ‘Soauuop op a[Id BI INnS 38)[INS9J [I JUESSIPI J9 [991 21quou 
81 Juemliddns ‘UOISI991d 2[qQNOP SIQuOU US [991 91quOou un anbuolil 


INI 


€ uOISI9314 a1qnop J913U9,1 8IOAUSI 042 Z :9IdWSX4 ‘AINn911I9 ,P 
UOIJIPUOI aun anboAoïd 93319ede2 93p juowassedap un ‘Inu 359 JP3InS9J 
at ‘211i2od doi} 153 13891 91 IS ‘ou90uid SnId 93{[ 191J3U3,1 S1I9A 99S1IP9J 
1S2  ‘UOISISAUOI EI 9P SIOI ‘UOIAEmMIXOidde, 1 ‘Saauuop 2p sIId eI dns 
383INnS2i [I JUESSIPI 2 [Id BI 9P 1991 9IQUOu 31 JUESINI1)9P ‘Jueu2 
-ojdde sn[d 3j uotSiI33id 9Iqnop JI31J}U2 us 1291 91qQUOU UN J31)19AU09 


XI4 


-(SL891 9P 3IId no HLHOH Saouuop 8p o[LId) o1Id eI dns 923sod3p 
1S2 [991 91QuOU 937 ‘Seuuop 2p 21Id EI 2P UOISI291d sI[qnop 131j}U8,1 
1INJ)9P 19 ‘I89.1 231IQUOU Un US UOISI994Id 9[qNOP JO1JUS UN J13J2AU09 


1VO4 
ejue))0I4 S2INBIIA U2 S2SINboy SUOI3EINdIUEH 


*‘2IId P[ op Jouwuos ST INS [991 9WPISI013 21 29sod9q 

T1 Ed ZI --- EI ZI 11. JOë4 

‘a[Id PI 9P Joumuos ne SanJIiS SI291 XNnap Sap UOI3ISOd EI 2SISAUI 
Ti Zi --- ZA T1 dVMS4 

*o[Id EI 2D jouuos 21 INS [991 pU022S 2, enbrIdnq 

TJ Zi TJ --- Ti 11 43401 


-2LId BI ep 2ouwos ne anJis 1391 81 onbridnq 
J 1 dnG3 


do3d4 
a3ue1)0114 2INGIIA ua SInbsy 3[1d 3P uOIJ3eIndIueK 9p Ssino)el1odo 


-‘Saauuop op 2I1Id PI 2p Jouuos ne 2s 
-odep 1s2 Inb G6eBIJ 21 Jed S230eduai je altd PI op souliddns juos S{a 
-9J1 Soeliquou S21 ‘ZJ [9231 ne JINOIISJUL 1S9 IJ [981 91QuOu 2[ IS IEJIA 


13 --- ZA TJ >d 
-Soauuop 2p a[Id EI 9p 


jouuos ne 2sod9p 1s2 nb 6elJ 1 Jed sa2eldusi 2 a[1d EP] ap Soutid 
-dns JUOS SIS91 Saiquou So °‘ZJ 1921 ne [662 J3S2 IJ [991 a[ IS IPIA 


3 --- Ti 11 =4 
-Soauuop 3p »2IId EI 


op J3euuos ne ssodap ss Inb Bel} a1 Jed g32eldmeJ 32 o[id EI op sutid 
-dns.1S2 [991 91QUOU 9371 °O19Z E JINSIIQJUI 1592 [994 2JQUOU SI IS IPIA 


>03 


-Saauuop a3P oIId EI op jJouuos ne 
osodsp se inb Bel; o1 ded a9el[dusJ J9 o11Id PI 9p omiJddns 1S2 [991 
S3IquOU 371 ‘O019Z e [e6a 152 a]UE)])30fJ 2[NBIIA US 9JQUOU 21 IS [BJA 


=04 
21UP)3)0{4 SINGIIA u9 SInboy Sonbl6oT Sin2)el9odo 


“suerpes z/k e Z/k- S[IIEAJOQUI | Suep 
2n3IS 1529 18JINS91 371 “Il SI291 SeI Sno) Anod aplIeA ‘ajueobue)-21v 


SGA --- T4 NVEVA 


-sueipel L E O 3I1E11281 
-UT,I SUBP 9nJIS 183 J)B3INS31 971 ‘I=>Ii=>I- INOd 2PI[BA “SNUISOD-DIV 


SI --- Ti SO90V4 


"SueipeJl Z2/L € Z/L- S1IPA193 
-UI,1 Suep 9njISs 13852 JE}[NS9I 271 ‘I=>11=>1- AINOd SPI[BA ‘SNUIS-91IV 


TA --- TJ NISVA 


‘UOrIJPIUPIQdUE, [| SUEP sqequssaidoi [291 a1quou pue sntd al 
BIOAUSI S91Bap 01Z E 06 2p oJuesñue] EP] ‘Ii ep ajuesbue] EI 21A1[9Q 


TA --- IA NVL4A 


SuBIPEI US QUIIdXS )S2 991jU28,p qjuaeunble TT ‘Ii 2P SNUISO2 2JALI9Q 


ZI --- 11. 5094 


SUPIPEI US SUIIdX9S 3S23 oo1qjUo,p Jjuounbie, 1 ‘Ii 2 Suis 3JAII9Q 


Si --- T1 NIS4 


‘11 aouessiInd EI e à ep JIna[PA 2J1AII9Q 


Si --- li N'IV4 


91ATI9G 


‘11 aouessind EI E OI ®P InaIEA 


T1 D071v3 


N°20 JANVIER 41986 


JED! 


6 


871 ‘1991 S31QUOU UR US OI 2p souess{nd onb juej us QUBIS S31q JE 191] 
US UN 38 oSSIIUEU onb JUEJ US UOISID91d 2[qnop »o1iquou un 21319Au09 


PA up 


X9vd4 


‘eturjspur 2se 
INSTEA BI 39 AINS119,P UOI3IPUOD aun JjInpold as [I ‘ojue) 
1014 SINBJITA US S1QuOU un Inod 93921I00U! 3S2 oulIeu» EI 2p axejuis 
ET IS ‘SI891 Sap o[Id eI dns esodep 25e je)[ns21 27 1891 siquou 
US UOISISAUCI Sp UIJ E (INSNBUOI PI anbIputr 2190 13tm91d 3, juop 
941P € 3S9,9 ‘Buri)S pojunos) s2)dmos ouleys sun 4ns a3uIod Jpv 


aquej[nsaJ 


À --- 1pe CE ATNE 


SUE))014A SINBITA US S2[ISUUOIFdO S3)XIN SUOIT)EJodoO 


O0S7' ETI 

#4 A CT 7 ZASTES I 

:OIduexg “unes 
-19,P UOT3FIPUOS Sun Jinpoid 2S [I ‘oIEUI2Sp sed JS ,u ajueJno) snbli 
-OUNU  9SEQ ET IS ‘JuesSOdx3 jeulioj ua jusssIeIedde dueus [23 un suep 
Soiusssidsl 3139 Sed JuEAnOd aU S9IJJIUD S27] ‘Sela)9PJe2 zu 2p dwueuys 
Un Sup 83101p E 91J12Sn{ 1n03 91 ‘IeWI92P Auiod np a3101p e SsJI61Ip 
TU  9S8SAE SXIJ JUIOd Jeuloz ua queino> snblieudiiod 21 dns 4 2u2133V 


elou21Jje 


77 SU IU J ä°34 


TO-FOYLST 
auo133e d'3 SI S OFYCZ I 
:Srdusxs 1inod ‘1N9113,P uOI)1Ipuos eun JInpOJd 3S II ‘ofewt) 
-9P Sed 3s9,u aqueinos onbiiounu sseq e1I IS ©S31999PJ29 ZU 9p dueu> 
un  SUEP 9II01P BE 9IJIISN( 3n03 21 ‘IPWI29p Auiod np 3J101p e s316 
—IP TU 984 juesodxs jemioj us jueinoo enbrisudriosd 31 JINS 1 3u2133v 


—--- SU IU 1 8°3 


lulu 8199398189 91 294B 1II[dioJ 
152  26eu9;3Je,Pp dueus 91 ‘uotsisauo2 BI 23p Siol ‘31354 doi 2s3 s31q 
[HOU ST IS ‘(uxs 91939PIED) SENbDSII199SE S2P 204 I[duoi 35e 26eu21J 
-JE.P dWueuo 31 ‘uorsisauos e1 sp Ssiol jinpoid os 2315ede2 Sp aueuss 
-Sedsp Un IS :2jUEB3101J a[nfilA ue eBeyoljie, j e uot3d0,p uori1so65ns 


9290813014 S[INBITA US 96PU9IJJ,P So[Iauuol13}do seopueuwoa 


SSSUUCP ep sSIId ET 1nS sSod3p 352 BeIJ 81 39 aLId e[ op seuliddns 
AU0$ S1891 SSIQUOU S3T ‘TI [991 NE INSII9dNS 368 [I [991 2 IS IeJA 


J --- Zi 141 <a 


‘Sesuuop 9#p a1Id EI INS »sod3p 359 6e1J »1[ 
18 ‘(SP3 SI UOISS SI291 NO Sseuuop) 21Id EI op ewutiddns 259 1991 31q 
“WOu ST ‘o197Z € INSIIdNS 153 2jUE)301J S[NIIA US 91qUOU 3[ IS IEIA 


3 --- 41. <O4 
81083014 SINBIIA US S[auu0OIj3dO sanbi6o7 sinaJelodo 


‘8UE))01J SINDITA PE JUWIOJ US e[eurxeu 


UOISTO91d ET 9848 gquasoidos ‘arld EI dns L [o31 oiquou 31 esodsq 


1 --- Id 


‘2Sisaut enbiogiodAiu sjuesbuel 


ai T3 HNVILVI 


“anbiioqisdAu SSISAUT SNUISON 


cÆI Ta HSO9vA 


"anbII[OQISdAU 9SJISAUI SnuIS 


Sa ==. Ld HNISVA 


"anbilogqisdAu sjues6uelr 


TA --- TJ HNV14 


‘enbiioqisdAu SnuIso9 
Ti HSOD:14 


anbrioqiodiu snuIs 


GI --- Ti HNIS4A 


SAUE733014 SINBITA US Se[[euuor3dO SoIPJUspuassueil SUCI)P12d0 


‘S?ide-19 S)1193P ®auu0P 9P o[Id e[ JINS J2JJ8,1I 
18 SXERUAS EI JII0AE JUSAIOP ‘SIIUBIdUI JUOS SII,S ‘Ssjou s22 ‘IS 
UIV ©(891013U09 S9U819/91 EI e queriiedde SIem ‘piepuejs sed jso,u 
Nb UB199,1 39839 S19 :aldWeX2) 931[01ju09 aouol9J9i sp sjom so enb 
PIBPUEIS-E8 ND SIA E SIA ‘9IpIO Sugu np JuoS S[auuoljdo s10u s27 


31u819014 SINGIIA US Salieuuor}dO Sapueumo) 


‘A Jn99819d0,[ SP UOIIN29X9,1 9P SIOL [EWIS3P 


qurod ND SJ1I01P € JneJ9P Jed s3y91JjJe SJIBIP 2P o1iquou 2! anbIpu] 


Su S49V'Id 


GOST'£ECI 
BISUSIFFSE ‘A ZOASYEZ I SAOV Id 7 ‘odwusxae Jdnod4 ‘sJquou np speuyorjJe,l 
JINS uorieledgs 9p seoedse un ‘[EWI99p juiod ND 83101p e souolJJe 
AUOS  SHIV Id J10Ù np UOrTINISX9 ajuaoaJ sn[d EI Jed saljioods sJlBID 
SP S1quou 37 ‘juesodxS 9poul Ua UOIJE)OU PI ER JIINOD91 Sed ou »p ul] 
-E 1989 ‘O1IBSSS9QU IS IEMI29P JUIOd np uoT}ISOd EI ap juemsjsnfe un 
9848  IBJQU96 US ‘eXIJ qjuiOd jemioj US 93S1I[P91 158 J op o6euyo1JJe,1 


a A 


LO-129SY7EETTI PisUy9S1}Je 

4 Z4L29°GYEZI ‘NOIIONONOIN ap uoT3eJUomIdur,{ Joae ‘aldwoxe 1no0d4 
‘1n3119,P UOFJIPUOS SUR JInpoid 9S II ‘SIEUID9p sed 2s9,u 2u9)S4S 
np  SIUBIROD SSEQ EI IS ‘aiquou np o6eu2IJje,I JInS uoljeledos 2p 
S0EdS8 UN ‘O19Z 9P JU319JJIP 2S9 II,S 9UDIJJE JUowSJ19IIdXa 159 ques 
-OdX8,1 38 ‘Uoljeausmaldut, | Jed sIupE S3IBIP 2p unurxeu 9Iquou à] 
AuSTAUuOS SSSIQUEN ET JUESOdXS opon Ua 29SIIE9I 258 J 2p e6ey2l1JJe,7] 


Fed, 
S3u813014 SINBIIA Ua Sasinbou 96eu21JJv,p Saulanoy 


‘is 939 24 S10u Sap uU01)92,| 21)3)9UI9d EP a121ueu op soeuuop 
SP SIId EI ns sssodep 1352 anbiljoweied dueuyo np ossoJpe, | ‘<jou: 
9P UOTMNOSXS,1 SP SIOT ‘29SIIBIIIUI UOU JU2WSJI191IdX9 anblijoueted 
SuoZ SUN 99AE ‘9919 189 2Je1-U8 Un ‘HIJVINVAA 9P UOTINIeX8, | 2p sJ101 


<FO0W: AIYVIHVAJ 
:8WI0j BI SNOS 9SIIIRN UCIJIUIJ9P 2P J0N 


JEDI N°20 JANVIER A9IB6 


SA 


ALVIQINNI ‘ NAHIL (A1I14W09] dO001+ (47114K09])] d001+ : 
ALVIGANHI ‘ NAHL (H114W09) dO01 (1114W09} 4001 : 
ALVIGANKI ! Où (4TIdKOD} 41 (HTIdWO9) ANUL A1I4WO9 OG : 


ALVIQHHHI x O4 (4TId4WO9) 4S714 {4114WN09) 
dOëdZ JTI4WO09 41 (41I1dWO09) = YJ1I4WO09 dndz J1I4WO0OD OGé : 


ANAL INVISNOD !I- 


! +a anaz x2G : : + and zZ : 
!  >0 ana a:S : ‘ HHAO dVAMAS HONL : 
!  dO4G dv#S  dIN : 
LrH789nvV8z | 
Z  #49S 
SNOILINIAAG HILHOA X'INO 
çuorsisauo3 3nd3no/3ndut } NuHL G € 
(SUOTIOunz A3111qe310od ) avOT cc | 
"IVHIO3G 0S71V SNOILINIAIG HLNOA AINO 
LCHYSONVSZ | 


T  #49S 

‘Ida 21QB1JPA au) UI P2101S SI JUIOd I[EWI92p ou) BUIMOIIOJ 
S1161P J0 Joqunu ou) jeu) pue lIoqunu-2[qnop e 0} P2210 
SI Quiod [eui22p e GuIuIeJUOD JSQumu EP jeu) sSounsse LvOTA 
4 x4 1VO714 S'CT  IVOTI4 SIYI € SIL pssn 


-00S7EZT- 


& SYETT- 
ÿ7- SIYIL SIYI' ES 
Oo TI °T 


(<- ) A221S Joqumu-pax14 
-H2821S OUI J0 do) uo juauodxo su] uyJim ‘u23; Jj0 qjuauodxs ue 
pue essrjueu poubis E Aq paiuasolidal aie sisqunu siurod-38013 
“ours DIweuAp PS3 IutIUun ue pue S3161p Qaueotrjtubis JnoJ 
yiim s6ex29ed u3eu UOISI931d-2I6UIS UOI32u0J-JIn0} juirod-3e2014 
1LfrHY89nv8z nn 
O #u2S 


dA "PIPPUEIS 62 12 DI4A Saup1sAS 
S9P 91110[PW BI JINS 2931NSSE 2J)2 Anod 9)1[1q8)10d EI ‘z 20[q np nus] 
-u03 np spie,I e ‘juepusde> ‘piepuB]s-cg us SeeddoI[3A3p 212 juo sal! 
-14 ‘293u8))01} SINBIIA SD SUOLJOUOR SOI 19JI0FdX9 ,P AUP])oulod soul) 
-NOJ SP UOI)EJUPIdUI,I juU9))ouiod Soide-12 S)I199P SUEPID3 SI20IQ S271 


9JuP9)014 SINDIIA US Sauljnox Sop uOlI)eiueIduI 


d#AILdVHO SAIAONV S07 
AOVAL NILAVH 2D 319131 


"An9113,P 9d41 NP 12 UOI)EJUSWSIdUI,[ 2P Juepuadap 352 Inb 32 ‘Id 
BP 1269 Sed 3So,u nO 1S9 Z1 onb [2] 34O0AU9I 1S9 ZJ SJQUOU 91 ‘IVISdA 
suep otidoidde BEBIJ NP UOIJOUOJ UH ‘ANSII8,[ 2P 244] 2{[ quenbip 
-UF U J8IQUS UN 3j [991 2JQUOU un aJjjua uOlJeJ2d0 oun,p 3e2)[NS9J 91 
1S8 IJ ‘INSJESIIIIN,I JPd SInoli1is ,p soBessou Sap uol)e)depe,[ 2Jj}ou 
-J1sd 3p utje UOT)PIIPISUI,I € OnNO[IE 8S110)99A NO 919JJID JO un )S3 


Zi --- u Ii 44344 

‘UOTRERUSMSIdUI, 1 2P 2JUEPUSdPP 358 UOIJESIJEUGIS INT 39 63 2p 
S11Q 9P 9Jquou 971 ‘SI991 SoIQUOU Sa[ JIns Jue)iod suoljesodo sa, Jinod 
JNSJII3,P SINDJU2IPUI S3[ JUEUSIUOS SJ]IQ 2P auoz oun INnS aJUIOd Jpv 


Jpe --- LVISdaA 
UTEWOP IE62I 2U3 2PISANO Quounbie j0 SO221P/UIS2IE 
O13Z ue] SS2[I JIoqunu E JO J)001 aJenbs pajduo)je 
O19Z UEUJ) SS2[I Joqumu JO uyi1rie6or paidus)3e 
OJ9Z J0 uy}I11P60I paiduaj3e 
MOLJISPUR uUOrISI3AuoD Jnd3no 
MOIJI2AO UOTISSAUOI Jnd3no 
O19Z Aq 3PIAIP 
MOIJIapun 
MOIJ1840 

“uotieotidde,p 


auweibolid 31 XNEHTUIM SINSJPDIPUL S271 


Anod SSPII[PA JUOS SIJUBAINS 


SINSIIJ,P JUOWSGTIPIL 9P SSlIauUU0r)dO suoi)elado 


UOT)EJU9NSIdUI,I op puodaq ‘81 
-BUID9P IIOSV SUIEUD aUn US 313129AU09 JS2 I2-IN[99 puenb [291 siquou 
un,P SAUPIJIUBIS SJIBIP OP uMUIXEW 2IQUOU 2[ QUEIAII9IP 2JUP3SU09 


u --- S49V'Id#4 


, ‘uor)ejuau 
pusdsq ‘Sie3i Sap oltd EI ins gquaesaidgi js I1,nb [3e 
un qjuequesaldel S)2)90,p 3JQuUOU 21 JUBIAI[SP ai1ue])su0) 


SALAG# 3 


-9Idut,1 sp 
[991 aiquou 


1: = 
‘UOT)PJUSMSIdWUI,[ 2P JUEPUSdap 152 JUsuauuol) 


-OU0J 21 ‘OI op souessind onb jue] us S}1q 91 2.1Quou un ja oss|jueu 
anb jUE] ua-uOISI991d 2[qnop a1quou un US [231 21quou Un J}1)}18AU09 


up --- 1 XOVaNn 


‘UOI3EJUSW9IdUI,{ 2P JUePU»dSp 1S2 jJuewauuorJ2u0J 


JEpr N°20 JANVIER A986 


8 


OT1/ 


Sd4- 40 Sd+ 4194319 9Q IIIM 31 | Sd 41130 


‘4 70190000 ‘A TZSIO000 ‘A 1772000 ‘4 €S887000 

‘4 9926000 ‘A ES6100 ‘A 906€00 ‘A EISLOO ‘A EISIO' 
‘4 9C1E0' ‘4 86290 ‘A 14SGI ‘A YSZT ‘A C6YS' ‘A 0000! 
Sd3- AVaauvA 


‘4 70190000 ‘A IZZI000 ‘A 1772000 ‘A ESS7O00 

‘4 9916000 ‘A ES6100' ‘A 906€00 ‘4 ZISLOO ‘A ZISIO- 
‘4 ValeO ‘A 2290 ‘A VYST ‘A OSYT ‘A 997 ‘JA vcgL 
Sd3+ AVaauva 


YIU --- U | ‘? 94 + x SALAG#A dVMS (S4OU JLVANO 
AVAAVA : 
DNYSLOO9T SABIIE - 9[NIOPIIS u2Z | 


8 #49S 
XON JIgVIAvVA 
ZZ AIYVIAVAZ AA AIAVIAVAA XX TIEVIAVAA 


7/14 INVISNODS 00SZ°0 
NIS-A JIAVIAVAI 
Id INVISNOO4 0000'1I 


O1 INVISNODA 00000 

OVIA VLIAG JIGVIAVA 
. 4/1 INVISNODA 92407 °I 

OVTIA AJOK HIAVIAVA 
H/T INVISNODH €209°0 


ONYS19091T SoIqerliIBA pue SJUPISUOD - SINJISPIIS USZ j 
LZ  #49S 

{  AVOT4 44 : 

?  'IgvIAVAZ HIAVIAVAA : 

SALAG#A INVISNOD 7 ‘©  INVISNOOZ LvVOIA EINVILSNODA : 

‘ ff  LVOT4 ‘4 : ‘ LA 94 : >0 dOäqa >04 : 
: iS id : ‘ IOHZ LEOHA. : ©  dVAST dVASA : 

!  HHAOZ AHAOA : dandaz and : :. doëdaz do : 
!  dO07 /Z4 Odé O (UXZ/1 --- u 4 > /NATA : 

!  HIAL -I LOH xSQ CS dVMS (Z/1I --- 1 } /Za : 

! xd O Z xzd : ! + x2da xza dñdz *x:Sq : 


°MOII9Q II32 PUOD3S E UI essIJueu | 

PSuBIS sy} pue doj uO [122 auO UI OL J0 queuodxs paubis | 
9u9 UIIM SII22 OM UI Joqunu BUIJP01J E SHOEIS Uieu uaZ | 
ii INAON3dIQ NOILVINANA TIAWI ii | 

Saserie - 2[NJ9PIIS u8z | 

9  #49S 


ONYS19091T 


"1EWUI92P ou} J0 JuBl1 eu) 03 SJ1BIP JO S1isqunu ou) SUIEJUOD dd 


LEA 


‘ 49VdS AdAL ‘# 
NOIS IOH S# dOùG ‘4 NIAHL 
d'IOH ‘© IIDOSV dO01 # OGé O XVK O AIVOIN où AI 
>0 94 
dOOT G'IOH Q IIOSV OGë O XVH 0 Où #° 
O S4v dfG ä< 
‘18H10 DPoXIJ UI Jj Sautid 
C-- 3 ) °4 
+ WII AIVOIN © ‘Ida 
‘3eWi0; J201J O0) JI9QunU pelaJjUs ]SP[I ou] S}I9AUOD 


CJ -- U ) 1IVOTA 


‘Auiod IeEWI23p E SpPNIOUI }Snu SISQUNU JPOIH 
ICW7S89NvVS8z and3no pue Jndutr - UJ3EeN usZz 
GS  #49S 


‘ NIHL <H -+q IO4 © dIN GON/HN dOUG dVMSZ 

LVAAIY OC -T CH xOIQ AIIHM > HOId € dOUQ xOIQ danGz NIO14 

O SAV LOH NIN €SG9 dafnœ Sgav LIOU- AOX dAnAZz AH - dVMS LO4 
«/0 4L4OHV =0 Y4AO  /4 


! HIHI CH -+A <H xHNN SAV dVMS SV dc 4OX anaz 
d< + LOH x4 


‘ +4 ALVOINJ <d : C4 ALVOIN 4< ALVOINA 


. KIAL <4 NAHL +Q G°<S LION JAST4 dONG LOH JAI ä< + 41AO <a 
dOOT NAHL HAVAT AI < €ESGGA SAV HHAO -T <4 *OIQ 4 odé 
O0 and 4 AKS àäc< 
NAHL AIN 4< dVMS IST C4 dVMS 4° dIiN 4< LOY AEVOIN JI 
>0 ana {vVdxS3-gdx9 ) - andqz LOH +4 
SUOIJOUNJ AINOJ - UJEN Uu2Z | 
#7  #49S 


ICHYS89NVST 


n Cä dO44 -+4 1O4 
IVA3d44 4< +1 <4 <4 dIN GON/HN OT ä< dOK/KA OI OQ A'IIHM 
4O 44AO >O YHAO NIDAG 
Sava HORL dä< 
‘Joqunmu Jje20/1J alqeuosesaJ e 
01 U39 J0 juouodxs ue pue ESSIJUEW I9qunu-2[qNOp E SWUI1I) 
C3 -- u UD ) KIAL 


© NAHL AEVOXNG JAI »>0 
-upn 03 üU J0 uBis au) salt|dde 


(Up -- u upn )} --+q 


‘ +4 x2zq +20 anaz x:2q 
‘OT Ag IP SatIdi3tnu 
CSP -- IP ) *OTa 
KIAL - U3EN uoz 
€  #49S 


IrUYS89nvST 


JEDT N°20 Januer Â986 


GTA -snusauaiq 


S31 3u0I8S SII ‘uUOISS2ssod 23J1JO0OU U2 QJUauar1en30e (SIPIGUE US 31199 ) 
210111P,I 9P uot)3onpel} EI] Jeinsse inod S21[BPIUOIOA Sap E À II,S 


-31bS 39 uUL ‘dxa ‘uue)] ‘uyso2 ‘uuls ‘ue} ‘SO ‘uis 
Suoljouo} Sa[ Sonu2]qo 21)2 quo [enbnp A11)Jed e OIG#OD ®P awy31J106 
1,1 9P AuoweuuolJouo} 2[ [I2)}2P ua JonbI[dxa SNOA SUuOIodSs Snow 


72006 VD ‘SAIIONV SOI ‘VI9N ‘SI1)EMSUIEN J0 3uSuS7 
-Jedsd ‘NVHSSONYD THINVHIVN E DD 1S9 71 E 9 SUEIDS Sep nusjuos 27 


:’SYTAONV SO07T ®P HLHOJH 
a131deu5 np AOVAL NIILAVNH E ND 152 GS 8 I SUEIIS SSP nuaJUuOoo 97 


©! dVMSA x LOHAH IONA x*4 1044 
dOudA NISSSOD1 dVMSA HJAO1 
À X --- a[pue snipei | cd : 


« 


: dOùGA dVMSA d<4 dVMSA IA (C1 UB3OIE --- 4 ) NVIVA : 


! dOHG4 dVMSA DIQNOD LI-OQ SI ONI,94A (,J T+ = ion 
HOVISi SI AHOILS-A (,) OA dYMSA x4 H/1 dVMSA xA H/T 


(X/4) UBI018 Z/TACZHA + ZAX) --- 4 X | H<H : 
ONYBLOO9!T ueje ‘dti ‘id - 3{[NI9PIIS U2Z | 
VA: #49S 
‘: dOùd4 dVMSA dONYG14 dVMS4 
DI1G4O0D LI-O4 SI ONI.93A (,) T- = SCOH O1 dVMSA 14 
| HOVISi SI AHOIS-A (.) 
1 que36ie --- 4 | HNVLVA : 


: xd ,.M/T dOùuGA doud4A 


DIG#09 LI-OG GI ONI,9HA (,} T- = 340 
HOVISi SI AHOIS-A (.) OA -A 7/14 dVMSA +4 ÿ/14 anda 
: J Q1DS --- J | LHOSA : 


! *xZa4 dONG4 dVMSA dOùdA dVMS4A 


914409 LI-OQ SI 9ONI.9HA {.,) I- = do 
HOVISi SI AHOIS-A (,) O4 -4 IA AVMSA +4 14 dandi 
J Ut --- 5 | NT14 : 
ONYSLIOIT uyue3e ‘uI ‘J34bsS - SINJISPIIS U2Z | 
€T #d49S 
: +4 doud4 HNISSHSOD4 (1 dXS --- 1 ) NTVA : 
‘ /4 dVMSA dONdA HNISZ3HSO9A (J'UUE3 --- I )} HNVIA : 
! dOuG4 dVMS:A4 dONG:A HNISSHSODA (I UUIS --- 4 ) HNISA : 
‘ dONd4 dOqaJ HNISSHS094 (1 USOD --- 1 } HSOD4 : 
©  OIQGHO9 LI-OG SI ONI-LOH (,) I- = 40H 
HOVISi SI AUOIS-4 (,} dVMSA 04 dVMSA ,H/T 
J UUIS J YSOD --- 41 | HNISSHSODA : 
‘ /d4 dVMSA dOudA NISSSO9A (1 ue) --- I ) NVIiA : 
! dONG3 dVMSA dONdGA NISSSO94 (I UIS --- J ) NISA : 
! dOÿd1 douda3 NIS8SO094 (1 S09 --- 1 ) S093 : 


‘  DIGHOD LI-OQ SI ONI,1O0O8 (.)] I+ = 4GqON 
HOVISi SI HJOÏS-H (.) dVMSA OA dVMSA H/1I 


JA US J SO2 --- 1 | NISSSODA : 
DNYSLO091 dxa ‘uyup3 ‘uyuis ‘SO ‘ue ‘UIS ‘SO - 2I[NISPIIS USZ | 
TT #49S 


- 914 ZZ 94 AA 84 XX LI-0a i XAN I 
NIHIL 1i-oa i XOAN CI a] <3 
dOOT EI-0q i XON ! O4 7 I 
NAHL LI-OdQ i XOAN 7 al ox 
dO07 LI-0G i XON I oqa T 7 
NAHL LI-0Q ài XON O  dI 
d< =0 ana 9 914 AJOHK HOVLS i 
pusz pus pusx --- 31821S7 1189SA4 J31PI11SX | 214409 : 
‘ Sd3 SI Sd4- (,) i 9V14 0OK 0 
T- = QON : 
: Sd SI Sdä+ (.,) i OVT14i AUOK 1- 
1+7= aqON : 
DNY7S1D09I uuy311061;e D1PI0OD - SINJIO9PIIS u9Z [l 
TT #49S 
ONI,DOHA JO ONI,ILOH 12U319 24 [TIM 31 | LI-OQ 43444 
: AHOLS-A Z MIN À MIN X MIN DONI,9HA 
{ AUOIS-H Z MAN À MAN X MAN ONI,104 
© +4 NOIS VLIHQ /NAZ4 9 XON O1 XX 94H AA À MAN : 


‘ +4 NOIS AGON N9OIS VITAG /NHZA 9 XON 41 AA O1 XX X MAN : 


: -4 NOIS VLTAQ Sd4 © XON 94 ZZ ZTMAN : 


DNYSIDO91T siojelndiuem 283$ - OINJSPIIS U2Z | 

OT #49S 

HHO1LS-A 410 AUO1S-H 9Q ILIM 31 | HOVISi YA440 
É id XX id AX =VLIIQ-A ii ZZ (€ --- Z À X ) AHOIS-A 
: id AA id ZZ =VLIAG-4 ( --- Z À X ) AXOIS-A4 
- i OVI1A VILTIG LON >O4 dfidi (4 ét ) =VLTAQ-A 

: i  DVI4 VLTAU >04 ana (1 --- I ) =VLI3Q-8 : 


‘  NIHL ALVOHNA 41 © VII A0ON NOIS (ON 
©  NHHL SIVOINA AI © 9VI4 VITAIQO NOIS V1140 


ONYSI909T siojeindiueu 1229S - SINJ9PIIS Uo7 | 


6 #42S 


10 Jenr N°20 ter 1386 


MUMPS 7ème partie par Yannick LEGRAS 


X NOTION DE PROGRAMME <ou ROUTIMNED EN MUMPS 


Nous venons d’étudier ta constitution des lignes de commandes, Nous allons 
passer maintenant à un niveau supérieur d‘organisation, pour le code de 
MUMPS, que nous nommerons routine. En fait, une routine n'est, ni plus ni 
moins, qu’une suite de lignes de commandes associées à un nom unique ‘nom de 
programme). Ce nom répond à la même règle de définition que celle déja vue 
pour les variables, 


Le stockage, le chargement ou l'accès à tes routines seront étudiés 
ultérieurement. Par convention, en MUMPS, la première ligne d’une routine 
contiendra une étiquette équivalente à son nom, un commentaire incluant le 
nom de l’auteur, la date de création et la der date de mise à jour. 
Pour des raisons de documentation, le commentaire incluera une description 
sommaire de sa fonctionnalité, Toutes les lignes de commmandes seront 
exécutées dans la sequence de leur apparition. 


De temps en temps, il est nécessaire de pouvoir modifier la sequence 
d'exécution des lignes ou des commandes . À cet effet, nous allons étudier 
deux commandes de déroutement de séquence, Ce sont les commandes DO et GOTO, 


À) La commande GOTCO 


Parfois, il est necessaire d‘ignorer un block de commandes pour traiter un 
cas particulier. La commande GOTO peut être employée de deux manières, Elle 
peut correspondre à un ordre inconditionnel ou, si elle est employée en 
conjonction avec l’ordre IF ou une postcondition, elle représente un ordre de 
branchement conditionnel. On peut imager ces deux possibilités en disant : 


- allez fermer la porte ! 
- si vous avez fraid, allez fermer la porte ! 


En MUMPS, le branchement 5e fera à une étiquette ou à une ligne spécifiée 
dont la HSE EE LEN est relative à une etiquette, Le petit programme suivant 
permet d’expliquer comment on peut utiliser la commande GOTQ. Comme toutes 
les commandes, GOTO peut être mentionnée avec sa premiere lettre; à savoir G, 


DEBUT . exemple de la commande goto 
R !,"veuillez entrer votre sexe (M/F) :",SEXE 1 SEXEL"M" G MALE 
G:*F"/CSEXE DEBUT+1 


R !,;"avez-vous eu des enfants (O/N) ",REPi 

R !,"avez-vous vos regles regulierement CO/N) ",REP2 G SUITE 
MALE R !,"etes-vous circoncis (O/N) ",REP3 

R !,"avez-vous eu des problemes de prostate (O/N) ",REP4 
SUITE R !;"est ce que vous fumez (O/N) “,REPS 

J REPS="0" R "Rarement, Moderement, Beaucoup (R/M/B) ",REP4 


Note : Nous avons volontairement utilisé la forme simplifiée des commandes 
puisque c’est la forme couramment employée, en MUMPS, par Îles programmeurs, 


Dans cet exemple, il est facile de voir l'utilité de la commande GOTO pour 
orienter les séquences de questions. Incidemment, l’une des utilisations 
générales du langage MUMPS est de Dos grâce à une série de questions, 
obtenir un renseignement complet Cex, un historique de patient), Les puristes 
vont s'empresser de dire que MUMPS n’est pas un langage structuré puisqu‘il 
supporte l’ordre GOTO . Les prochaines instructions permetteront de dire le 
contraire. 


B) Les commandes DO et QUIT 


La commande DO permet également de transférer l‘exécution à une ligne 

specifiée. À la différence de l'ordre GOTO, il est possible de continuer en 

séquence les instructions citées après l'ordre de débranchement. Le retour 

est effectué à la rencontre de 1° ordre QUIT, Si plusieurs ordres DO sont 

imbriqués, le premier ordre QUIT correspond au dernier ordre DO. Un exemple —/p— 
est donné dans la petite routine suivante : 
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janalyse d’une journee Y.L.6. Ecrit:1/oct/84 Maj:2/n0v/84 18h08 
W #,!,"nous voulons des info. Sur votre vie de tous les jours" 
W !,"entrez le nombre d'heures passees aux occupations suivantes" 
"pour les minutes entrez le temps en centieme" 

"combien d‘heures passez-Vvous à : : 
DEBUT R ! "dormir : “VU D CALCUL & DORMI R=C 

R !,"lire où etudier : ",U D CALCUL S LIRE=C 
R !,"vous deplacer ?: MU D CALCUL S TRANS=C 
R !,"manger et vous detendre : “,U D CALCUL S MANGE=C 
R !,"faire du sport : ",V D CALCUL S SPORT=C 

S TOTAL=+DORMIR+LIRE+TRANS+MANGE + SPORT 

1 TOTAL),7 G OK 

E R'',"que faites vous Île reste du temps ? ",AUTRE 

1 TOTAL)I W !,"une journee n’a que 24 heures,recommencez" G DEBUT 
W !,"vous etes bien occupe, merci de ces reponses" G FIN 

S C=Vv/24 

;fin de la routine 


OK 


CALCUL 
FIN 


Nous allons faire quelques remarques au sujet de cette routine. Si on 
l'analyse de près, on s’aperçait qu’une seule question sera posée. Après 
l'exécution de la ligne calcul, c’est la ligne fin qui est exécutée. Comme il 
n'y a plus de ligne après la ligne fin, le traitement s‘arrête, Pour 
accomplir le traitement de la manière prévue, il suffit d'écrire la ligne 
CALCUL de la façon suivante : 


CALCUL GS C=V/24 Q 


Nous avons dit précédemment que MUMPS etait un langage permettant la 

progr ammat i on structurée, En effet, en utilisant les postconditions il est 
très simple de simuler les instructions DO WHILE ou D0 UNTIL, Prenons 
l'exemple suivant : : 


DEBUT S SoIF="0" 

TANTQUE  A:SOIF=/"0" R !,"avez-vous soif ?,$0IF D:SQIF="0" BOIRE G TANTQUE 
FIN W !,"vous etes deja saoul ses ‘0 

BOIRE W !,"alors, buvez" Q 


L'exemple ci-dessus illustre le phenomene 5 tant que vous avez soif, buvez : 
Notez l’utilisation de QUIT. L'ordre QUIT indique la fin du niveau dans 
lequel on est. Si on le trouve, suite a un ordre DO l‘'exéeution 85t 
transférée À la commande située après le DO, Dans les autres Cas l'exécution 
de Ja ligne est arrêtêe, Pour être plus clair, décomposons ce programme 


action.par action et ligne par ligne : 


affectation de la chaine "O" à la variable SOIF 


abandon de fa ligne si SOIF ne contient pas "Q", Envoi de la question 
avez-vous sait ? , Attente d'une saisie clavier, Celle-ci ect affectée À la 
variable SOIF, Debranchement à ce qu'on appele un sous-programme, ci SOIF 
est égale a "0". Ce sous-programme affiche le message Yalors,buvez" jpuis 
revient pour l'exécution de l’ordre suivant, Soit, l’ordre de branchement à 
la meme ligne. 


: Ca) 18 \! F à 
- envoi du message “ vous êtes déjà saoûl et abandon de l'exécution du 
programme, 


la ligne BOIRE est à considérew comme un sous-programme. 


Va N : # 4 d #4 Le 
Note: 1‘intruction QUIT n’a jammais d’argument, Elle sera séparée des verbes 
suivants, s°ils existent, par deux espaces, 


fi Postconditionts) dans les arguments 


Nous avons déJa vu qu'il etait possible de gostconditionner les verbes, I 
est également possible, pour certains verbes de mettre des postcoditions danz 
les arguments (D0, 6OTO, XECUTE). En plus, on peut avair les deux types de 
postconditions. À savoir, postconditionner le verbe et postconditionner ses 


arguments, Exemple : ns 
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R !,"données ok CO/N),X 


GiX'=z*" OK:X="0",FAUX:X= "NM TEST HI t," 9  " G TEST 
(e) 

OK W ! "les données sont bonnes" G FIN 

FAUX W !,"les données cont fausses” 


ifin de la routine 


Dans cet exemple, nous avons utilisé les deux possibilités de 
postconditionnement. 


D) Les commandes HALT et HANG 


Ces deux commandes qui s'écrivent dans leurs formes abrégées de la même 
manière € H ), exécutent des actions totalement différentes. [1 est 
nécessaire, de temps en temps, de pouvoir arrèter un traitement en cours, 
lorsque l'ordinateur, parce que mal programmé, devient une machine folle. 
C'est le rôle de la commande HALT, Celle-ci sera citée sans argument, si 
d’autres verbes la suivent, HALT sera séparée du verbe suivant par deux 
espaces. Quand MUMPS recontre cette commande, il arrète tautes les exécutions 
en cours et retourne sous le controle du système. HALT, comme toutes les 
commandes, peut etre poscanditiannée, La commande HANG est moins sauvage. 
Elle permet de suspendre un traitement, non pas definitivement, mais perdant 
un certain nombre de seconde(s) specifiéets). MUMPS temporisera 
silencieusement puis reprendra, en sequence, Île traitement. Pour illustrer 
l’utilisation de cette commande, imaginez qu'un grand texte soit envoyé en 
continu sur l’écran,. II est intéressant de pouvoir temporiser en fin d'écran 
pour vous laisser le temps de lire ce texte. 


RESUME 


Nous avons maintenant tous les éléments nécessaires pour écrire une routine 
MUMPS. 11 est évident que nous n'‘avons pas vu toutes les composantes de 
MUMPS, Dans ce chapitre nous avons vu : 


Qu’une routine est un ensemble de lignes de commandes. Qu'elle est identifiée 
par un nom unique, que Sa première ligne contient son nom, son auteur, sa 
date de création ainsi que sa date de mise à jour. Les lignes de commande 
peuvent être labellées où nan. Les debranchements 4DQ GOTO) peuvent se faire 
à une position relative à une étiquette, Dans les prochains chapitres nous 
verrons comment accéder aux routines, ce qu'est un fichier en MUMPS et 
d’autres éléments permettant de se construire des outils. 
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FORTH _INTIATION: la vectorisation par Marc PETREMANN 


L'EXECUTION VECTORISEE EUR.LE. PORTIER D'HOTEL., BONJOUR... 


Sous cette appellation un peu ésoté- L'exécution sans indirection corres- 
rique se cache un concept tout à fait nouveau pond à la situation suivante: 
et un peu révolutionnaire pour celui qui ne - j'arrive à l'hotel et je demande la chambre 
pratique pas les nouveaux langages. MaiS POUT jui m'est réservée. Le portier me dit que c'est 
préciser un peu notre propos, revenons au ni- celle qui porte le numéro 32. 
du langage machine et décrivons dans le détail Ù 
un mécanisme un peu troublant pour le program- L'exécution avec indirection s'appa- 
meur débutant: l'exécution par indirection. rente à une situation nettement moins courante: 


Le microprocesseur choisi est le j'arrive dans le même hôtel, mais le portier 

6809 pour la richesse de ses modes d'adressa- qui est un original, me donne pour seule indi 
ges. cation, le numéro de la Chambre 10, en me pré- 
cisant que dans cette chambre je trouverai un 


ORG EMDMEM - $400 papier indiquant Fe numéro de ma chambre. 


PUTC EQU $E803 
Du DEVOS tout ceci !!! 


START ee Se Ne nous trompons pas, JMP  VECTEUR et 
END JMP (VECTEURI n'ont pas le même comportement. 
; J : | Ce mécanisme n'est pas reproductible en BASIC 

Dans ce petit exemple, Le registre B est rempli vers un  SOUS-programme BASIC, à l'exception 

avec la valeur de l'adresse mémoire ENDMEM -$200 d'une seule machine, le ZXx81 qui accepte les 

et l'exécution BASSE au sous-programme PUTC qui GOTO et GOSUB suivis d'une étiquette: 

est chargé d'afficher le caractère dont le code 

est dans le registre B (ceci sur TO7 ou T07/70) 10 LET VECTEUR:5000 


; ÿ : À 20 GOSUB VECTEUR 
Une fois la routine implantée en mémoire, elle dre 


peut être utilisée par un langage évolué: 
En FORTH, par contre, il existe des commandes 


en BASIC: CALL (ENDMEM-&H400) permettant l'exécution vectorisée de routines à 
en FORTH: ENDMEM @ HEX 400 - CALL travers une définition accessible à l'utilisa 


; ; : : teur. 
Mais si on désire que notre routine “filtre” 


les caractères affichés de manière à ne prendre : ; 
en compte que les caractères ASCII affichables DEFINITION DE VECTEURS EN 83-STANDARD 
et transforme les codes de contrôle en espaces, ‘ La définition d'un vecteur, en 83- 


il faut réécrire notre routine. STANDARD est réalisée par le mot DEFER 
ORG ENDMEM-$400 DEFER : --- mot: 


PUTC EQU $E803 : 
Crée un en-tête et réserve deux octets dans la 
* START LDB ENDMEM-$200 zone paramêtre du mot. L'exécution du «mot: 
; CMPB #32 exécute le mot dont le cfa se trouve dans la 
BLS AFFECTE zone paramètre de «mot». 
BRA AFFICHE ‘ à à 
AFFECTE L.DB #32 L'affectation peut être réalisée par le mot {') 
_AFFICHE  JSR PUTC FEES 
END Exemple: 


Cette petite gÿmnastique nous oblige, à partir : NOUVEAU-EMIT € n ---) 

de BASIC ou FORTH, à tenir compte de deux a- DUP 32 « IF DROP 32 THEN EMIT ; 
dresses si on veut ou non filter notre afficha- 

ge, à moins de faire appel à une indirection: DEFER C-EMIT 

Ê (") NOUVEAU-EMIT IS C-EMIT 


ORG ENDMEM - $400 à l'exécution: 
PUTC EQU $E803 


VECTEUR EQU ENDMEM-$100 . 13 C-EMIT affiche un espace 
START LDB ÉNDMEM  $200 Une réaffectation de C-EMIT: 


65 C-EMIT affiche le caractère "A" 


JMP { VECTEUR) ñ 
SUITE CMPB #32 ('J EMIT IS C-EMIT 
BLS AFFECTE {si B<ou= à 32) à l'exécution: 
BRA AFFICHE 
AFFECTE LDB #32 
AFFICHE JSR PUTC : 
END Ainsi, C-EMIT exécute NOUVEAU-EMIT ou EMIT se- 
lon le cfa qui lui a été affecté. 


65 C-EMIT affiche le caractère "A" 
13 EMIT provoque un retour chariot 


Dans ce cas, l'exécution se poursuit à l'adres- 
se pointée par le contenu de VECTEUR., Si cette Pour ceux qui programment sur des systèmes de 
adresse à été initialisée comme suit: tvpe 79-Standard ou FIG, les mots DEFER, IS et 


* R Sa : 4 
en BASIC: DOKH VECTEUR, SUITE (*) peuvent se définir de la manière suivante: 


OÙ DOKE VECTEUR, AFFICHE : DEFER € --- <mot>) 
CREATE © ou <BUILDS en FIG) 
0 , 
DOES » 
en FORTH:I SUITE VECTEUR [C) ?DUP 
OU AFFICHE VECTEUR ! IF EXECUTE 
ELSE ." NON INITIALISE" CR THEN ; 


(DOKE=POKE adr, POKE adr+1; n'existe pas 
Snr THOMSON; tant pis pour vous ...) 


Ainsi, un START CALI exécute un filtrage ou non 

ceci en fonction du contenu de VECFEUR. Comment CP) 

ce peut -ce 7??? (COMPILE) ? 2- 
STATE @ 


cette première approche avait pour seuil but de 1F 


vous faire sentir certaines subtilités. Ne vous 
fatiguez pas à expérimenter ce qui précède, la 
suite est bien plus intéressante et s'applique 


à tous les svstèmes. —— 5 


(COMPILE) LITERAL THEN  ; IMMEDIATE 
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: IS 
(COMPILE) : 


STATE @ 

IF CCOM PILE LITE RAL 
COMPILE ! 

ELSE ! THEN  ; 

IMMÉDIATE 


BOMALNES.. D'APPLICATION 


La vectorisation permet d'exécuter “en différé" 
une définition non encore compilée (d'où le mot 


DEFER, pour DIFFÉRER -en français-), mais aussi 
de faire exécuter de diverses manières un même 
mot sans avoir à modifier les définitions déjà 
compi lées. 

Voyons ceci avec un exemple concret. De nom- 
breux systèmes FORTH délivrent les codes d'er- 


reurs uniquement sous forme de nombres, ce qui 
ne facilite guère la vie du programmeur que 
vous êtes et qui aime les choses claires. En 
FORTH, le mot qui délivre les codes où messages 
s'appelle MESSAGE. Exemple 1 MESSAGE affiche 1 
ou EMPTY-STACK. Mais certains messages ne sont 
pas toujours explicites même en anglais. Si vo- 
tre FORTH est écrit en mémoire vive, vous pou- 
vez redéfinir MESSAGE comme suit: 


DEFER (MESSAGE) 


{") CMESSAGE) ‘ MESSAGE ‘! 
('J ;S ‘ MESSAGE 2 + ! 


MESSAGE-EN-FRANCAIS Çn ---) 

CASE 
1 OF ." PILE VIDE" ENDOF 
2 OF se etc..... 


ENDCASE CR  ; 
"  MESSAGE-EN-FRANCAIS IS (MESSAGE) 
1 MESSAGE affiche PILE VIDE. 


Et si Çà vous chante, vous pouvez définir des 
messages d'erreurs propres à vos applications 
ou dans une langue étrangère. Ainsi, si vous a- 
vez également défini des messages en allemand 
et en anglais (et plus encore), vous pouvez dé- 


et maintenant, 


finir: 
CHOIX-LANGAGE € +  ) 
CR ." CHOISISSEZ CHOOSES - WAHLEN: " 
CR CR 
." 1...FRANCAIS - FRENCH FRANZOSICH" 
CR CR ." 2.,.ANGLAIS - ENGLISH - ENGLISH " 
CR ER ." 3... ALLEMAND GFHRMAN DEUTSCH" 


KEY CASI: 

" 1" ASC OF (‘'} F-MSG IS (MESSAGE) ENDOF 
" 2" ASC OF (‘] G-MSG IS (MESSAGE) ENDOF 
" 3" ASC OF l'J D-MSG IS (MESSAGE) ENDOF 
MESSAGES - NUMÉRIQUES 

ENDCASE  ; ‘ 


Dans l'exemple ci-dessus, F-MSG correspond aux 
messages en français, G-MSG ceux en anglais et 
D-MSG ceux en allemand. MESSAGE-NUMERIQUES sé- 
lectionne l'option messages chiffrés par dé- 
faut si on choisit : une option différente de 
celle affichée. 


L'intérét est encore plus évident pour certains 
cas critiques, tels l'usage d'imprimantes dont 
tout le monde à eu affaire aux codes de contrô- 
les capricieux au possible. Voici le cas le 
plus fréquent: la séquence PRINTER 13 EMIT 
CONSOLE provoque selon l'imprimante et les op- 
tions sélectionnées sur celle-ci, un retour 
chariot simple où un retour chariot avec des- 
cente à la ligne suivante (CR+ELF, soit 13 EMIT 
10 EMIT). 


Afin de remédier à ce dilemne, nous allons re- 
définir CR à partir d'une primitive CCR) ou 
(CR+LF) de manière vectorisée: 


CCR) CR ;: 
CCR+LF) CR 10 EMIT ; 


DEÉFER CR 


MANESSMAN - SELECT 
l'J CCR) IS CR ; 


SE] KOSHA -SELECT 


("3 CCR+LF) IS CR ; 

PRINTER-SELECT CO ee) 
CR ." FAITES VOTRE CHOIX:" CR CR 
."  1...Sélection de l'imprimante MANESSMAN" CR 
."  2...Sélection de l'imprimante SEIKOSHA" CR 
KEY CASE 

1 OF MANESSMAN-SELECT ENDOF 

2 OF SEIKOSHA-SELECT  ENDOF 
ENDCASE ; 


Naturellement, ceci reste à adapter aux parti- 
cularités de votre système. Ainsi, pour ne pas 
rendre votre affichage: perturbant lors du re- 
tour à l'affichage vidéo, il faut modifier les 
routines ci-dessus: 


CCR) 13 EMIT ; 
CCR+LF) 13 EMIT 10 EMIT ; 


DÉFER CR 
DEFER SELECTION 


MANESSMAN - SELECT 
SEIKOSHA -SELECT ('J CR IS (CR+LF) ; 


PRINTER-SELECT Ç ---) 
CR ." FAITES VOTRE CHOIX:" CR CR 
." 1...Sélection de l'imprimante MANESSMAN" CR 
." 2...Sélection de l'imprimante SEIKOSHA" CR 
KEY CASE 
1 OF ("J} SELECTION IS MANESSMAN-SELECT ENDOF 
2 OF (') SÉLECTION IS SEIKOSHA-SELECT  ENDOF 
ENDCASE ; 


(PRINTER) ( reprise ancienne version ) 
PRINTER C en tant que primitive ) ; 


PRINTER SELECTION (PRINTER) ; 


(CONSOLE) ( reprise ancienne version ) 
CONSOLE Ç en tant que primitive ) :; 


CONSOLE ('J CR IS (CR+LF) (CONSOLE) ; 


('} CR IS (CR) ; 


Bien entendu, tout ceci est une illustration de 
ue qui se passe sur un système hébéergeant le 
langage FORTH en mémoire vive tels Les systèmes 
APPLE, ORIC, AMSTRAD et {ous systèmes sous CP/M 
équipés du FB'5 CNewbrain, KAYPRO...ete...). 


Mais qu'en est il pour les systèmes hébergeant 
les primitives dans une cartouche ou en ROM ? 

U Cas des THOMSON, HECTOR FIRX, certaines ver: 
Sions pour COMMODORE, SINCLAIR QL, etc....). 

La solution dépend des ortentations prises par 
le constructeur. Personnel lement, je ne puis 
citer que Le FORTH THOMSON, Car je le maitrise 
à peu près. 


LES. TABLEAUX DE VE 


Le langage FORTH des systèmes  THOM 

SON se présentant sous forme de cartouche, il 
n'est pas possible de modifier les adresses 
d'exécution. Mais le manuel de référence appor- 
te des informations précieuses à celui qui le 
parcourt, nottament au chapitre ANNEXE D, page 
231. Certains mots sont dits "mots appelants" 
et exécutent un "mot appelé par défaut". 


Les codes d'exécution des mots appelés par dé- 
faut Sont implantés dans un tableau de vecteurs 
appelé SYSVEC. En Fait, SYSVEC est plutôt un 
mot qui calcule un décalage par rapport à l'o- 
rigine du tableau. Ainsi, O0 SYSVEC @ délivre le 
cfa Ccode d'exécution) du mot CCR). Donc, les 
séquences 0 SYSVEC @ EXECUTE, ou CCR) ou CR 
sont équivalentes. En fait, la définition de CR 
une fois décompilée présente la définition: 

CR O SYSVEC @ ÉXECUTE ; 
ce qui équivaut presque à: 

CR CCR) ; 

Mais ce qui est subtil dans cette technique est 
la possibilité offerte à l'utilisateur de défi- 
nir des mots en langage évolué qui se  substi- 
Lueront aux primitives. 
Exemple: 


1 SYSVEC @ délivre le cfa de CEÉMIT) qui est 
le mot appelé par défaut par  EMIT. Voici une 
plaisanterie bien innocente à réaliser: 
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CNOUVÉAU EMIT) DUP CEMIT) CEMIT) ; 


| Ai ee te SCR: 9 

MIND OCNOUVEAE EMFTD OT SYSVEC ! CPEMIT-F) € n —--- n' ) CASE 
et à partir de maintenant, votre THOMSON est " y" ASC OF 129 ENDOF 

pris de baigaiement. Si vous essayez de taper * &” ASC OF 13 ENDOF 
VLIST, vous obtiendrez VVLLIISSTT et le résul- # ä"” ASC OF 133 ENDOF 

tat sera du même ordre € OOKK ). # à’ ASC OF 134 ENDOF 
rétablissez la situation en tapant: e . Es ce . ÉRIDe 

FIND CEMIT) 1 SYSVEC #:g" ASC OF 137 ENDOF 


ai TT " &* ASC OF 138 ENDOF 
que vous verrez provisoirement sous la Forme: Nb ASC DEC 100 CHOOE 


FFIINNDD  CCÉEMMI LITE) etc... # $* ASC OF 140 ENDOF 
#* ô"* ASC OF 147 ENDOF 

Voici un exemple illustrant à merveille les " g# ASC OF 148 ENDOF 
possibilités de cette technique. Le problème à # Q” ASC OF 150 ENDOF 
résoudre est le suivant: il s'agit d'imprimer " ÿ"” ASC OF 151 ENDOF 
sur une SEIKOSHA SP800 (compatible SP1000 et 127 OF 27 (PEMIT) 69 (PEMIT) 32 ENDOF 
l'imprimante livrée avec le TO9 !!) connectée à 166 OF 27 (PEMIT) 7@ (PEMIT) 32 ENDOF 
un TO7 ou TO7/70, toutes les accentuées appa- DUP ENDCASE 
raissant normal ement à l'écran. REGD ! { HEX } E812 CALL [ DECIMAL ] ; 


le mot (PEMIT-F) transcode les caractères com- 
pris entre 129 et 151 en leur équivalent accen- c 
tués SEIKOSHA (codes IBM). Sur le TO7, en FORTH 
“é" a pour code 134 et sur la SP800, le code : ACC-OFF Éd 
130. Deux options complémentaires ont été sé- C FIND (PEMIT) ] LITERAL 9 SYSVEC ! 
lectionnées: - : 


ACC-ON € ) 
FIND (PEMIT-F) ] LITERAL 9 SYSVEC ! 


; 


- le code 127 sur le TO7 transmet la séquence 
de passage en caractères gras sur la SP800. 


- le code 166 réalise l'inverse du code 127. SCR: 50 
CNKEY) € ——— ) 
(KEY) DUP 
CASE 
30 OF DROP (KEY) 
128 + ENDOF ( Action 30 ) 


Afin de court-circuiter la fonction C(PEMIT) qui 
assure un filtrage des accentués du moniteur en 
leur équivalents non accentués vers l'impriman- 
te, on appelle directement la routine PUTC: 


REGD ! ( HEX ) E812 CALL ( DECIMAL ) 12 OF DROP 127 ENDOF € Action CTR-L) 
Les mots ACC-ON et ACC-OFF valident et dévali- 18 OF DROP 166 ENDOF ( Action CTR-R) 
dent la possibilité d'obtention de caractères ESDCASE  ; 
accentués sur l'imprimante. 

Le mot (NKEY) permet d'accéder aux caractères FIND (NKEY) 2 SYSVEC ! 

127 et 166 directement à partir du clavier. En 

prime, tout appui sur la touche marquée[S]sui- { La valeur 127, générée par l'action D) 
vi d'un caractère affiche le caractère corres- € CTRL-L affiche un carré noir. ) 
pondant à celui de la touche activée, mais aug- € La valeur 166, générée par l'action D) 
menté de 128. Si vous avez réalisé une redéfi- € CTRL-R affiche un carré blanc. ) 


nition graphique faisant correspondre les ca- 
ractères affichés à ceux de l'imprimante, vous 
aurrez la possibilité d'imprimer et composer 
des textes contenant des caractères graphiques 
et mathématiques: 


1 
dx (—-) 
x°3 


£E pr E06 og e mp 


ERREURS : 


Jedi £ 19, page 2 : lire 6 45 REDUIT . . 2 15 

Plus amusant : pgcd est une application directe de la récursivité qui en 
Forth-83 peut s’écrire : 

: PGCD ( ni n2 -- nn} SWAF OVER MOD ?DUP IF MYSELF THEN ; 


{ pour info : MYSELF LATEST NAME) , ;  IMMEDIATE ) 
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LPB HUITIEME LECON Christian SCHERER 


Bientôt un dessin animé sur votre écran ? 


Lee mme meme mm we mn 0, ee en veu 0e = = = 
PERS mm DRM SSSR RSR Sense s=== 


Les ordinateurs personnels sont des petites merveilles lorsqu'ils se 
mettent à animer les écrans couleur, et on trouve dans le commerce toutes 

sortes de jeux qui mettent à profit leurs possibilités d'animation graphique et 
colorée. 


L'utilisateur qui, lassé des logiciels tout faits, décide de créer 

lui-même ses propres animations, est tout heureux de trouver dans la panoplie 
du "langage de programmation livré avec l'appareil" des primitives telles que 
PEN, PAPER, SCREEN, MODE, PLOT, DRAW, BOX, CIRCLE et autres SPRITE. 


Il est vrai qu'un programme de quelques lignes est souvent déjà capable 
de faire apparaître des figures fort intéressantes. 


Là où les choses se gâtent, c'est lorsque vous essayez d'animer votre 
figure en cherchant à en déplacer certains éléments. Bien sûr, vous pourriez 
penser prendre tout votre temps, en imitant Walt Disney, pour élaborer les 
plans successifs, dont l'enchaînement rapide donnerait ensuite l'illusion du 
mouvement . 


Mais ce n'est pas ainsi que votre ordinateur procède, car chaque image 
prise individuellement occupe une place considérable (8 Koctets sur un 
Commodore 64, 32 Koctets sur un QL Sinclair) et à raison de 25 images par 
secondes, votre dessin animé ne pourra pas durer longtemps faute de place 
disponible en mémoire vive. Il existe davantage d'espace sur la mémoire de 
masse (cassette ou disquette), mais les temps de chargements deviennent la 
contrainte (7 secondes pour charger une image sur micro-cassette du QL). La 
solution idéale serait d'utiliser un magnétoscope ou mieux encore un disque 
optique numérique, mais 11 faut pour cela attendre la baisse des prix... 


Avec les technologies d'aujourd'hui, i1 faut trouver des moyens de 
comprimer l'image, par exemple en distinguant d'une part un ou quelques décors, 
et d'autre part des figures animées dont on décrira le mouvement par des 
algorithmes. Mais ici se cache une nouvelle difficulté : une vitesse 
d'exécution insuffisante, qui vous contraint à passer au langage-machine. 


Pour ceux qui cherchent un compromis entre les langages évolués, trop 
lents, et les assembleurs, trop rudimentaires, nous proposons ici une solution: 
le langage LPB (Langage Pseudo-Basic), qui permet, après avoir mis au point les 
algorithmes de mouvement en langage évolué (le BASIC), de les transposer le 
plus directement possible dans le langage spécifique du micro-processeur, seul 
moyen de gagner simultanément de la place en mémoire et de la vitesse 
d'exécution. La fabrication du code binaire exécutable est confiée à un 
compilateur, appelé BALCOM (Basic-like Assembly Language Compiler) en principe 
infaillible, qui vous apporte en plus d'autres avantages: vous pouvez glisser 
un maximum de commentaires et d'explications dans votre programme-source écrit 
en LPB, que vous conserverez par devers vous, tandis que vous ne livrerez à la 
curiosité des utilisateurs qu'un paquet de binaire exécutable particulièrement 
compact et très difficile à décrypter. | 


Voyons maintenant un exemple. 
2/ Nous avez dit "scroll" ? 


Pour donner l'illusion d'un mouvement rapide de caméra, 11 faut pouvoir 
faire bouger rapidement l'image dans toutes les directions. Imaginez-vous dans 
la cabine de pilotage d'un quelconque engin. Vous actionnez un quelconque 

manche à balai et le paysage qui est devant vous se met à défiler vers le haut, 
vers le bas, vers la gauche ou vers la droite selon le cas. 


En informatique, on appelle cela un "scroll". Au cinema, quand le 
mouvement est horizontal, on parle plutôt de "panoramique". me 
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mort de votre champ visuel, s'apprête à bondir sur vous ! 


Dans l'exemple qui suit, le manche à balai sera figuré par les quatre 
flèches directionnelles de votre ordinateur, que vous pourrez facilement 
remplacer par une manette de jeu, pourvu que vous connaissiez les 
codes-caractère correspondants. 


3/ Solution BASIC (pour un ordinateur MSX) 


L'écran d'un ordinateur MSX, en mode texte, comporte 25 lignes de 40 
colonnes chacune, soit 1000 cases à faire bouger, en y recopiant le contenu de 
la case voisine. L'algorithme correspondant est facile à mettre au point en 
BASIC, puisqu'il suffit de taper "RUN" pour vérifier que l'on effectue les 1000 
copies dans le bon ordre. 


Les primitives BASIC à utiliser sont 


VPEÉEK(X*40+Y) qui fournit le contenu de la case écran 
: de coordonnées X (colonne) et Y (ligne) 


VPOKE X*#4H0+Y,A qui écrit le caractère A dans la case 
‘ de coordonnées X et Y 


i GOTO 10 

2 SAVE'"scro11.bas",A:END 
10 ASZINKEYS:IF A$="" THEN 10 
20 ON ASC(A#$)-27 GOSUB 1100, 1200,1300,1400 
30 GOTOD 10 

1100 PRINT'vers la droite" 
1110 FOR X=38 TO 1 STEP -1 
1120 FOR Y=0 TO 23 

1150 J=YKk4O+X 

1140  VPOKE J+i,VPEEK(J) 
1150 NEXT:NEXT 

1160 FOR Y=0 TO 23 

1170 VPOKE 1+Y#40,0 

1189 NEXT 

1190 RETURN 

1209 FRINT"'vers la gauche" 
1710 FOR X=27 TO 39 

1270 FOR Y=0 TO 23 

1230 J=YXx40+X 

1249  VPOKE J-1, VPEEK (9) 
1250 NEXT:NEXT 

1260 FOR Y=0 TO 23 

1270 VPOKE 39+Y%X40,0 
1280 NEXT 

1290 RETURN 

13090 PRINT'"'vers le haut" 
1510 FOR Ys=1i TD 28 

1320 FOR X=1 TO 39 

1330 J=Y140+X 

1340 VPOKE J-40,VPEEK(J) 
1350 NEXT:NEXT 

1360 FOR X=1 TO 39 

1370  VFOKE 920+X,0 

1380 NEXT 

1390 RETURN 

1400 PRINT'vers le bas " 
1410 FOR Y=22 TO © STEP -3 
14290 FOR X=1 TO 39 

1470  J=Yx40+X 

1449 VPOKE J+40,VPEEK(J) 
1450 NEXT:NEXT 

1460 FOR X=1 TO 39 

1470 VPOKE X,0 

1480 NEXT 

1490 RETURN 


4/ Solution LPB (même machine) 


a 


ne Quelle lenteur désespérante, lorsque le programme ci-dessus en BASIC 
s'exécute ! On bâille avant d'apercevoir le monstre qui, caché dans un angle 
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: Nous décidons de convertir le programme ci-dessus en langage LPB. Il 
nous faut d'abord rechercher dans les tripes logicielles (la ROM) de notre 
appareil les primitives dont nous avons besoin : 


GOSUB &HSF, qui fournit le prochain caractère tapé au clavier 
GOSUB &HHA, qui lit le contenu de l'écran en HL=X*40+Y 

GOSUB &HAD, qui écrit A dans l'écran en HL=X*40+Y 
GOSUB &H20, qui compare le contenu de HL et de DE 


Le résultat en LPB a beaucoup d'air de famille avec l'original BASIC, 
sauf que les variables que l'on manipule maintenant sont directement les 
registres du micro-processeur Z80, et que le jeu d'instructions est limité à 
celles que le micro-processeur sait exécuter directement : 


1 ORG RHAOOO:REM (C)1985 CHRISTIAN SCHERER 
2 REM SAVE "scroll.LPB",A:END 

10 GOSUB &H9F: REM A=PROCHAIN CARACTERE CLAVIER 

20 GOSUB 100 

30 GOTO 10 

SO PUSH BC,DE,HL:GOSUB &H4A:POP HL,DE, BC:RETURN : REM LIRE VRAM 
60 PUSH AF,BC,DE,HL:GDSUB &H4D:POP HL,DE, BC, AF:RETURN : REM ECRIRE VRAM 
70 GOTO &H20 s: REM COMPARER HL & DE 

100 REM TEST FLECHES DIRECTIONNELLES 

110 IF ÀA=28 THEN 1100 

120 IF A=29 THEN 1200 

130 IF A=3O THEN 1300 

140 IF A231 THEN 1400 

150 POP HL:RETURN:REM retour au BASIC 

1100 REM ‘vers la droite" 

1110 HL=1000 

1120 HLzHl-1:FOR B=59 

1130 HL=HL-1:GOSUB 50 

1140 HL=HL+i:GOSUR 60 
* 1150 HL=HL-1:NEXT 

1160 A=" ": GOSUE 60 . 

1170 DEz=0:GOSUB 70:]IF «> THEN 1120 

1180 RETURN 

1200 REM "vers la gauche" 

1210 HL=O 

1220 FOR B=39 

1230 HL=HL+i:GOSUE 50 

1240 HlæHL-1:GOSUB 60 

1250 HEæHL+i 

1260 NEXT 

1270 =" "2 GOSUB 605 HL=HL+1 

1280 DE=1000:G60SUB 7O:1IF <> THEN 1220 

1290 RETURN 

1300 REM ‘vers le haut" 

13510 HL=O 

1320 PUSH HL:DE=40:HL=HL+DE: GOSUH 50 

1530 POP HL:GOSUB 60 

1340 HLæHL+1:DE=960:GOSUE 70: IF£3:THEN 1320 

.1350 =" ":FOR B=40:GOSUB 60: HLeHL+i:NEXT 

1360 RETURN 

1400 REM "vers le bas " 

1410 HL=960 

1420 HL=HL-1:GO0OSUB 50 

1430 PUSH HL:DE=40: HLæHL+DE: GOSUE 60 POP HL 

1440  DE=0:GOSUBR 70:IF<2>THEN 1420 

1450 Az" ":FOR B=40:GOSUB 60: HL=HL+1: NEXT 

1460 RETURN 

2000 END 20 
9000 DEFUSR=&HAO00 : PRINTUSR (0) : END 
9100 OPEN "SCROLL.ASC". FOR OUTPUT AS #1:FOR AD=$&HAOOO0 TO RHAOCZ: PRINT#1,FEEK (AD 
):NEXT: CLOSE 1:END d 
9200 OPEN "SEROLL.ASC" FOR INPUT AS #1:FOR AD=&HAO000 TO &HAOC3: INFUT#1,4:PFOKE A 
D,A3: PRINT PEEK(AD)3;:NEXT: CLOSE 1:END 


TEDr N°20 Jnvier Â986 19 


FUTU, 


20 JEDi n°20 


SYS 


Los LES STRUCTURES 


ORGANISATION MATERIEELE 


Sa taille réduite (format A5, épaisseur 7 cm) 


et son poids peu élevé, environ ! Kg, font de 
FUTURSYS un micro-ordinateur facilement trans- 
portable. 

11 possède un clavier plat AZERTY, résistant 
aux chocs et aux agents chimiques, avec des 


touches incluant jusqu'à quatre fonctions. 


L'électronique est du type CMOS. L'écran à 
cristaux liquides comporte deux lignes de 40 
caractères sur un écran virtuel. Ces caracté- 
ristiques donnent à FUTURSYS une autonomie pou- 
vant atteindre 24 heures, ceci grâce à une bat- 
terie au plomb étanche et sans entretien et ac- 
ceptant un déchargement complet. L'interface K7 
et le port parallèle intégrés permettent l'uti- 
lisation de périphériques divers. 


Bien que le logiciel FUTURLOG soit 
té en REPROM, il est possible, sous certaines 
conditions, de se procurer la dernière version 
commercialisée de celui-ci. Cette possibilité 
permet de ne pas être tributaire d’une mémoire 
de masse après décharge involontaire, par exem- 
pile. 


implanté 


ORGANISATION LOGICIELLE 


Comme nous l'avons vu dans notre précédent 
article, la structure de base de FUTURSYS est 


l'arbre. 


l'organisation 
élé- 
les 
sont 
ba- 
des 
deux 


Nous allons voir maintenant 
l'organisation générale du logiciel. Deux 
ments de connaissance distincts forment 
“ programmes “ élaborés avec FUTURSYS: ce 
les structures et les faits. 11 existe des 
ses (ensembles ordonnés) de structures et 
bases (idem) de faits qui sont regroupées, 
par deux, dans des concepts, l'ensemble de 
ceux-ci constituant la “ connaissance " de FU- 
TURSYS. L'intérêt des concepts est d'autoriser 
des évaluations différentes ou concurrentes 
dans le même micro-ordinateur. 


Décrivons plus en détail 
structures et les faits. 


ce que sont les 


STRUCTURES 


Les structures sont des connaissances élémen- 
taires permettant la transformation en arbre 
d'une expression initialement sous la forme 
d'une chaîne de caractères. Une première remar- 
que est que deux bases de structures distinctes 
pourront donner des arbres différents, donc que 
deux concepts pourront fournir. des décomposi- 
tions différentes d'une même expression. 


Cette transformation en arbre est également 


appelée analyse de l'expression. 


L'arbre résultant de l'analyse comporte des 
branches de deux type différents, selon qu'el- 
les sont évaluables ou non. 


Le fait est qu'en pouvant ainsi analyser une 
expression, on définit par là même, une syntaxe 
de l'application, et c'est bien là l'objet des 
bases de structures. 


on voit donc que l'utilisateur a la possibi- 
lité de définir sa propre syntaxe, c'est à dire 
non seulement son vocabulaire, mais également 
sa grammaire. Nous avons vu que les bases de 


structures étaient des ensembles ordonnés. Il y 
a donc, en modifiant cet ordre, la possibilité 
de modifier l'analyse; ainsi, selon cet ordre, 
1+2x3 pourra ètre compris soit comme (1+2)x3, 
soit comme 1+(2x3). 


Examinons maintenant ce qu'est une structure. 
Une structure est une chaîne de caractères 
quelconques hormis quatre d'entre eux qui joue- 
ront un rôle particulier lors de l'analyse, en 
représentant les branches issues du noeud re- 
présenté par la structure. Ces quatres caractè- 
res sont notés ici: « # 


En effet, analyser une expression va consis- 
ter à comparer cette expression aux structures 
considérées comme des masques. Cette opération 


sera recommencée, s'il y a lieu, sur les sous- 
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expressions correspondant aux branches (aux ca- 
ractères spéciaux), à l'exception de nu : Can 
comme non-analysable). 


L'ordre défini au niveau de la base de struc- 
tures élimine également les litiges pouvant 
survenir quand plusieurs structures peuvent 
s'appliquer avec succès à une expression ou 
sous-expression; ce sera la structure de plus 
faible rang qui sera choisie. 


Ainsi, +R , fAxf (dans cet ordre) trans- 
forme 1+2x3 en: 
ee 
N 
1” X\ 
27 3 


Par contre, la même expression, mais avec, cet- 
te fois-ci, Mx , 4 , donne: : 


x 
2€ Ÿs 
1 2 
Le nombre de caractères spéciaux dans une 
structure (nombre de branches) est quelconque 
(@ à n). 
Ainsi, les chaînes: Papa, gateau, ff), Re, 


o, GA, Ai ,Rt,"f",ER, somme de A et de AR, 
SibAlors#Sinonf, sont-elles toutes des structu- 
res potentielles. 


pans la désignation des caractères spéciaux, 
ou “f", est de signaler 
correspondante doit 


ou ne doit pas ("f") être évaluée. 


le rôle du suffixe, u 


Cu"), 
L'intérét est, dans les structures condition- 


nelles par exemple, de ne pas évaluer les con- 
séquences tant que la condition n'a pas été el- 


le-même évaluée. 
Donc l'expression Sill.pleutAlorsJe.sors.mon. 
parapluieSinonRien, et suivant la structure: 
Si&aAlorsfsinonf 


la seule sous-expression évaluée sera I1.pleut. 
Nous verrons dans l’article suivant comment in- 
terviendront les faits et nous examinerons en 
particulier les notions d'unification, inféren- 
ce, algorithmique, combinatoire. 
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